home *** CD-ROM | disk | FTP | other *** search
/ C/C++ Users Group Library 1996 July / C-C++ Users Group Library July 1996.iso / vol_100 / 158_01 / qea < prev    next >
Text File  |  1987-10-10  |  14KB  |  625 lines
  1. /*  VERSION 0011  (DATE: 03/11/86)  (TIME: 22:57)  */
  2. /*
  3.     e (qe) screen editor
  4.  
  5.     (C) G. Nigel Gilbert, MICROLOGY, 1981
  6.     licensed for private non-profitmaking use 1983
  7.     
  8.     August-December 1981
  9.     Modified: To QE from e (ver 4.6a) by J.W. Haefner -- Oct 84-Mar 85
  10.  
  11.     FILE: qea
  12.  
  13.     FUNCTIONS: main, initialise, edit, finish, seldisk
  14.  
  15.     PURPOSE: initialise; process commands;
  16.  
  17. */
  18.  
  19. #include "qe.h"
  20.  
  21. main(argc,argv)
  22. int argc;
  23. char **argv;
  24. {
  25.     int argn;
  26.     char *dig;
  27.     char *bdosbase;
  28.     int i,*six,*errbase,err1(),err2(),err3(),err4();
  29.  
  30. /**************************Default option settings***************************/
  31.  
  32.     autoin=YES;        /*auto indent  [YES/NO]*/
  33.     backup=YES;        /*make ".BAK" file [YES/NO]*/
  34.     readall=NO;        /*read as much text as possible up to memory*/
  35.     trail=NO;        /*don't strip trailing blanks [YES/NO]*/
  36.     helpon=NO;        /*start with help menu on [YES/NO]*/
  37.     expert=YES;        /*brief prompts [YES/NO]*/
  38.     tabwidth=4;        /*tab stops every n cols [number]*/
  39.     displaypos=YES;    /*display line:column at top of screen*/
  40.     blockscroll=NO;    /*don't scroll whole page, just current line*/
  41.     pagingdisk=0;    /*create buffer file on this disk -
  42.                         set to either 0 (for currently logged-in disk)
  43.                         or to desired disk letter  (eg 'B') */
  44.     wboot=YES;        /*do a warm boot at end of edit [YES/NO]*/
  45.     defext[0]='\0'; /*default extension*/
  46. #if WWRAP
  47.     rtmarg=LLIM;    /*right margin*/
  48. #endif
  49. #if VRSNNUM
  50.     version=YES;    /*change version num on save*/
  51.     *date='\0';
  52.     *time='\0';
  53. #endif
  54. /***********************End of default option settings***********************/
  55.  
  56.  
  57.     inbufp=0;
  58.     if ((bdos(VERNO,0) & 0xf0)  != 0x20) {
  59.         puts("Must use CP/M vers 2.x with 'e'"); 
  60.         exit();
  61.         }
  62.  
  63.     filename[0]=name[0]='\0';
  64.  
  65.     argn=0;    
  66.     while (++argn < argc)
  67.         if (*argv[argn] == '-') {
  68.             dig=argv[argn]+1;
  69.             switch(*dig) {
  70.             case 'J' :
  71.                 initjmp = atoi((argv[argn]+2));
  72.                 break;
  73.             case 'A' :
  74.                 autoin=!autoin; 
  75.                 break;
  76.             case 'B' : 
  77.                 backup=!backup; 
  78.                 break;
  79.             case 'L' :
  80.                 displaypos=!displaypos;
  81.                 break;
  82.             case 'H' :
  83.                 blockscroll=!blockscroll;
  84.                 break;
  85. #if WWRAP
  86.             case 'M' :        /* set right margin to n */
  87.                 rtmarg=0;
  88.                 /*while (*++dig) rtmarg=rtmarg*10+*dig-'0';*/
  89.                 rtmarg=atoi((argv[argn]+2));
  90.                 if (rtmarg < LLIM) {
  91.                     trail=YES;
  92.                     autoin=NO;
  93.                 }
  94.                 break;
  95. #endif
  96.             case 'T' :        /* set tab width to n */
  97.                 tabwidth=0;
  98.                 while (*++dig) tabwidth=tabwidth*10+*dig-'0';
  99.                 break;
  100.             case 'S' :        /* flag to strip trailing blanks from lines */
  101.                 trail=!trail;
  102.                 break;
  103. #if VRSNNUM
  104.             case 'U' :        /* update version number and date */
  105.                 version= !version;
  106.                 break;
  107. #endif
  108.             case 'V' : 
  109.                 helpon=!helpon; 
  110.                 break;
  111.             case 'E' :
  112.                 expert=!expert;
  113.                 break;
  114.             case 'X' : 
  115.                 wboot=!wboot; 
  116.                 break;
  117.             case 'D' : 
  118.                 pagingdisk=*(dig+1);
  119.                 if (pagingdisk >= 'A' && pagingdisk <= 'P') break;
  120.             default  : 
  121.                 puts("Illegal option: "); 
  122.                 puts(argv[argn]);
  123.                 exit();
  124.                 }
  125.             }
  126.         else strcpy(filename[0] ? name : filename,argv[argn]);
  127.  
  128.     six=6;
  129.     bdosbase=*six;
  130.     errbase=bdosbase+3;
  131.     for (i=0; i < 4; i++) errold[i]=*(errbase+i);
  132.     *(errbase)=err1;
  133.     *(errbase+1)=err2;
  134.     *(errbase+2)=err3;
  135.     *(errbase+3)=err4;
  136.  
  137.     ans[0]=patt[0]=changeto[0]=opts[0]='\0';
  138.     
  139.     keytranslate();
  140.     do {
  141.         initialise();
  142.         edit();
  143.         } 
  144.     while (YES);
  145. }
  146.  
  147. initialise()
  148. {
  149.     int i,warn;
  150.  
  151.     cursorx=charn=offset=lastoff=from=to=0;
  152.     cursory=topline=lastread=lastl=findir=jmpto=1;
  153.     changed=isdim=replace=repeat=blocking=warn=blankedmess=NO;
  154.     pfirst=-100;
  155.     goteof=YES;
  156.     errmess=NULL;
  157.  
  158.     curdsk=bdos(CURDSK);
  159.  
  160.     initvm();
  161.  
  162.     text[0]='\0';
  163.     cline=1;
  164.     altered=YES;
  165.     puttext();
  166.  
  167.     if (filename[0]) {
  168.         putclr();
  169.         gotoxy(8,11);
  170.         puts("qe  screen editor  version ");
  171.         puts(VERSION);
  172.         gotoxy(12,12);
  173.         puts("MICROLOGY 1983 and JWH 1984/6");
  174.         gotoxy(12,13);
  175.         terminal();
  176.         while (opentext(filename) == FAIL) {
  177.             askforfile();
  178.             if (!filename[0]) goto newfile;
  179.             }
  180.         lastl=UNKNOWN;
  181.         lastread=0;
  182.         goteof=NO;
  183.         if (name[0]) {
  184.             strcpy(filename,name); 
  185.             name[0]='\0';
  186.             }
  187.         format(filename);
  188.         }
  189. newfile: errmess=NULL;
  190.         /* read as much text to fill memory or end of file */
  191.     if (readall)
  192.         for (i=1;(!(usage[slotsinmem-1]) && (!(goteof)));i+=100)
  193.             readtext(i);
  194.     gettext(1);
  195.     putclr();
  196.     if (helpon) dohelp();
  197.     if (initjmp>2) {                 /* (2-1) is a bad jump from line 1 */
  198.         jumpline(initjmp-cline);    /* not possible to do init jump to 2*/
  199.         initjmp=0;
  200.         putstatusline(cline);
  201.         }
  202.     else
  203.         putpage();
  204. }
  205.  
  206. edit()        /*command processor*/
  207. {
  208.     char c;
  209.     sint oldcrx,inc;
  210.     int to;
  211.  
  212.     setjmp(mainmenu);
  213.  
  214.     while (YES) {
  215.         goodline=cline;
  216.         if (expert) {
  217.             if(!blankedmess) xmessoff();
  218.         }
  219.         else unmess();
  220.         putlineno(cline);
  221.         resetcursor();
  222.         c=getkey();
  223.         if (errmess != NULL) {
  224.             errmess=NULL;
  225.             putstatusline(cline);
  226.             }
  227.         switch(c) {
  228.         case DOWNKEY    : 
  229.             moveline(1); 
  230.             break;
  231.         case UPKEY    : 
  232.             moveline(-1); 
  233.             break;
  234.         case LEFTKEY    : 
  235.             movechar(-1); 
  236.             break;
  237.         case RIGHTKEY    : 
  238.             movechar(1); 
  239.             break;
  240.         case LEFTWKEY    : 
  241.             moveword(-1); 
  242.             break;
  243.         case RIGHTWKEY    : 
  244.             moveword(1);  
  245.             break;
  246.         case BOLKEY    : 
  247.             sync(0); 
  248.             break;
  249.         case EOLKEY    : 
  250.             sync(strlen(text)); 
  251.             break;
  252.         case UPPAGE    : 
  253.             movepage(-1); 
  254.             break;
  255.         case DOWNPAGE    : 
  256.             movepage(0); 
  257.             break;
  258.         case HOMEKEY    : 
  259.             if (jumpline(lastl-cline)) sync(strlen(text));
  260.             break;
  261.         case BOFKEY    : 
  262.             if (jumpline(1-cline)) sync(0);
  263.             break;
  264.         case DELLEFT    : 
  265.             changed=YES;
  266.             deletechar(-1); 
  267.             break;
  268.         case DELRIGHT    : 
  269.             changed=YES;
  270.             deletechar(0); 
  271.             break;
  272.         case DELLNKEY    : 
  273.             changed=YES;
  274.             strcpy(textb,text);            /*save for undelete*/
  275.             text[0]='\0';
  276.             crdelete((cline == lastl ? -1 : 0)); 
  277.             break;
  278.         case DELWDKEY    : 
  279.             changed=YES;
  280.             deleteword(); 
  281.             break;
  282.         case JUMPKEY    :
  283.             if (expert) xprtmess("J ? ");
  284.             else putmess("Jump ([+/-]n,RET=crnt) ? ");
  285.             scans(ans,6);
  286.             if (!*ans) jmpto = cline;
  287.             else
  288.                 calcjmp();
  289.             if (expert) xmessoff();
  290.             break;
  291.         case TOPSCRKEY    :
  292.             moveline((topline-cursory));
  293.             break;
  294.         case BOTSCRKEY    :
  295.             moveline((SHEIGHT-cursory));
  296.             break;
  297.          case REPKEY    :
  298.             repeat=YES; 
  299.             dofindrep(1); 
  300.             repeat=NO; 
  301.             break;
  302.         case BLOCKKEY    : 
  303.             to = blockops();
  304.             if (to == YES) return;
  305.             if (to == 'r') {
  306.                 if (expert) xprtmess("Read file? ");
  307.                 else putmess("File to read? ");
  308.                 scans(name,15);
  309.                 if (strlen(name) > 0)  {
  310.                     readfile(name);
  311.                     putpage();
  312.                     }
  313.                 }
  314.             break;
  315.         case SCRLDNKEY    :
  316.             /* original */
  317.             oldcrx = cursorx;
  318.             to = plast-cline;
  319.             moveline(to);
  320.             inc = ( (moveline(1)==YES) ? 1 : 0);
  321.             cursorx = oldcrx;
  322.             moveline(((cline-to)<=pfirst) ? (topline-cursory) : (-to - inc));
  323.  
  324.               /* new: 29.viii.86 : NOT FOR ADDS*/
  325.             /*
  326.             puttext();
  327.             if (plast>=(pfirst+2) ) {
  328.                 linedelete(topline);
  329.                 inc=plast-pfirst;
  330.                 if (plast<lastl) {
  331.                     getline(++plast);
  332.                     putline(plast,
  333.                         (inc<(SHEIGHT-topline)) ? inc : SHEIGHT);
  334.                 }
  335.                 pfirst++;
  336.                 if (cursory==topline) gettext(pfirst);
  337.                 cursorx=adjustc(cursorx);
  338.                 gotoxy(cursorx,(cursory -= cursory>topline ? 1 : 0));
  339.             }
  340.             */
  341.             break;
  342.         case UNDELINE    :                 /*undelete a line*/
  343. /*           helpon via kontext key
  344.             if (helpon) {
  345.                 helpon=NO; 
  346.                 unmess();
  347.                 }
  348.             else {
  349.                 helpon=YES; 
  350.                 dohelp();
  351.                 }
  352. */
  353.             puttext();
  354.             cline=inject(cline,textb);
  355.             if (cursory>=SHEIGHT) {
  356.                 /*linedelete(topline);*/    /*for non-ADDS*/
  357.                 adputpage(pfirst,topline);
  358.                 gotoxy(0,cursory);
  359.                 gettext(cline);
  360.                 putline(cline,cursory);
  361.                 plast++;
  362.                 pfirst++;
  363.             }
  364.             else {
  365.                 gotoxy(0,++cursory);
  366.                 /*insertline();*/  /* not for ADDS*/
  367.                 gettext(cline);
  368.                 putline(cline,cursory);
  369.  
  370. /*adinsrt.c*/
  371. /*        insertline();    */
  372. /*
  373.         rewrite(0,0);
  374.         if (dir == 0) adputpage(cline-1,cursory++);
  375.         else adputpage(cline+1,cursory+1);
  376.         if (plast-pfirst < SHEIGHT-topline)plast++;
  377. */
  378.                 if (plast-pfirst < SHEIGHT-topline)plast++;
  379.             }
  380.             break;
  381.         case CR        : 
  382.             changed=YES;
  383.             crinsert(0);